home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
TECHNICA
/
COMPUTER
/
H254.ZIP
/
IRITSM3S.ZIP
/
IRIT
/
BOX-BOX.IRT
< prev
next >
Wrap
Text File
|
1991-03-21
|
572b
|
39 lines
#
# Intersection of two boxes:
#
# Created by Gershon Elber, Jan. 89
#
save_mat = view_mat;
view_mat = view_mat * scale(vector( 0.1, 0.1, 0.1 ));
b1=box(vector(-3,-2,-1),6,4,2);
b2=box(vector(-4,-3,-2),2,2,4);
a1=b2+b1;
interact(list(a1),false);
free(a1);
a2=b2*b1;
interact(list(a2),false);
free(a2);
a3=b2-b1;
interact(list(a3),false);
free(a3);
a4=b1-b2;
interact(list(a4),false);
free(a4);
intercrv = true;
a5=b2*b1;
interact(list(a5,b1,b2),false);
free(a5);
intercrv = false;
free(b1);
free(b2);
view_mat = save_mat;